home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / exe45 < prev    next >
Text File  |  2007-02-28  |  486b  |  18 lines
  1. 0010 PRINT "NUMBER OF UNITS   ",
  2. 0020 INPUT NUMBER
  3. 0030 PRINT "PRICE PER UNIT    ",
  4. 0040 INPUT PRICE
  5. 0050 PRINT 
  6. 0060 PRINT 
  7. 0070 AMOUNT:=NUMBER*PRICE
  8. 0080 IF NUMBER<20 THEN
  9. 0090 AMOUNT:=AMOUNT*105/100
  10. 0100 PRINT "A DELIVERY CHARGE HAS BEEN ADDED"
  11. 0110 PRINT "TO THE TOTAL PRICE. THIS CHARGE"
  12. 0120 PRINT "IS 5 PCT. OF THE SELLING PRICE."
  13. 0130 PRINT "IF YOU BUY AT LEAST 20 UNITS"
  14. 0140 PRINT "NO DELIVERY CHARGE IS MADE."
  15. 0150 PRINT 
  16. 0160 ENDIF 
  17. 0170 PRINT "TOTAL:            $ ",AMOUNT
  18.